clear
set more off
set matsize 5000

global lecmen    "\\intra\partages\au_amic2\SRCV\TABLES_INITIALES_FEV2021\INPUT\MENAGES"
global lecmensas "\\intra\partages\au_amic2\SRCV_AVRIL2021\TABLES_INITIALES_AVRIL2021\MENAGES"
global lecmencsv "\\intra\partages\au_amic2\SRCV_AVRIL2021\TABLES_INITIALES_AVRIL2021\MENAGES"
global ecrmen    "\\intra\partages\au_amic2\SRCV_AVRIL2021\BASES_FEV2022_V5\2020\MENAGES\autres_var"
global lectabpas "\\intra\partages\au_amic2\SRCV_AVRIL2021\TABLES_INITIALES_AVRIL2021\SRCV_2020"
global ecrstat   "\\intra\partages\au_amic2\SRCV_AVRIL2021\STAT_fev2022_V5\2020_new"


/* 1 - EXTRACTION DES VARIABLES SELECTIONNéES */

/*  fichier CSV 3ème livraison 2020 */
foreach an of numlist 20 {
cd "$lecmencsv"
use menages_20`an'.dta, clear
keep DB030 nactifs  nbadult nenfants HX080 HX090 nivactb chargr ipcred ipelec iplog iploy stoc econ rempr lfeppc zeat TUU10
gen annee_SRCV = 20`an'
order DB030 annee_SRCV 
rename TUU10 tuu10
cd "$ecrmen"
save autres_men_`an'.dta, replace
display `an'
count 
}


/* 2 - CHANGEMENT DE NOM DES VARIABLES */
foreach an of numlist 20 {
cd "$ecrmen"
use autres_men_`an'.dta, clear
rename DB030 db030
save autres_men_`an'.dta, replace
}


/* 3 - CREATION DE PUISEC_APPROXIM EN 2020 ET MISE EN FORME DE STOC */
/*     MISE EN FORME DE NIVACT_NEW NIVACT_NEW_2 ET IPLOY_NEW */

/* a - CREATION DE PUISEC_approxim à partir de ECON :  */
* attention puisec 2019 pas toujours alimenté en 1 ou 2 : 25% de point
* puisec 2020, créé à partir de econ, NE comportera PAS de valeurs manquantes 
clear 
use "$ecrmen\autres_men_20.dta"
gen puisec_approxim = .
replace puisec_approxim  = 1 if econ == "2"
replace puisec_approxim  = 2 if econ != "2"
tab puisec_approxim , missing
save "$ecrmen\autres_men_20.dta", replace

/* b - CHANGEMENT MODALITES DE STOC :  */
clear 
use "$ecrmen\autres_men_20.dta"
gen stoc_new = .
replace stoc_new = 1 if stoc == "1" 
replace stoc_new = 2 if stoc == "2" 
replace stoc_new = 3 if stoc == "3" 
replace stoc_new = 4 if stoc == "4" 
replace stoc_new = 4 if stoc == "5" 
replace stoc_new = 5 if stoc == "6" 
drop stoc
rename stoc_new stoc
save "$ecrmen\autres_men_20.dta", replace

/* c - MISE EN FORME DE NIVACT_NEW */
clear
use "$ecrmen\autres_men_20.dta"
tab nivactb, missing 
gen nivact_new = nivactb
destring nivact_new, replace
tab nivact_new annee_SRCV , missing
save "$ecrmen\autres_men_20.dta", replace

/* d - MISE EN FORME DE NIVACT_NEW_2 */
clear
use "$ecrmen\autres_men_20.dta", clear
gen nivact_new_2 = ""
replace nivact_new_2 = "1" if nivactb == "1" 
replace nivact_new_2 = "2" if nivactb == "2" 
replace nivact_new_2 = "3" if nivactb == "3" 
replace nivact_new_2 = "4" if nivactb == "4" 
replace nivact_new_2 = "5" if nivactb == "5" 
replace nivact_new_2 = "5" if nivactb == "6" 
destring nivact_new_2, replace
tab nivactb annee_SRCV
tab nivact_new_2 annee_SRCV, missing
drop  nivactb
save "$ecrmen\autres_men_20.dta", replace

/* e - MISE EN FORME DE IPLOY_NEW */
clear
use "$ecrmen\autres_men_20.dta", clear
tab iploy annee_SRCV, missing
gen iploy_new = iploy 
sort annee_SRCV
order annee_SRCV iploy iploy_new
replace iploy_new = "4" if iploy == "" 
destring iploy_new, replace
tab iploy_new annee_SRCV, missing
save "$ecrmen\autres_men_20.dta", replace

/* f - HX080 à renommer */
clear
use "$ecrmen\autres_men_20.dta"
rename HX080 hx080_ini
gen HX080 = .
replace HX080 = 0 if hx080_ini == "FALSE" 
replace HX080 = 1 if hx080_ini == "TRUE"
drop hx080_ini 
save "$ecrmen\autres_men_20.dta", replace

/* g - NBADULT renommé en NADULT */
clear
use "$ecrmen\autres_men_20.dta"
rename nbadult nadult
save "$ecrmen\autres_men_20.dta", replace

/* h - CREATION DE YEAR */
clear
use "$ecrmen\autres_men_20.dta"
gen year = annee_SRCV - 1
save "$ecrmen\autres_men_20.dta", replace	


/* 4 - MISE EN FORME AVANT EMPILEMENT : REMPLACEMENT DE NA & TRANSFORMATION EN NUMERIQUE */	 
	 
* 4-1 REMPLACEMENT DES NA PAR BLANC 
clear
use "$ecrmen\autres_men_20.dta"
foreach var of varlist rempr lfeppc zeat tuu10 {
cd "$ecrmen"
use autres_men_20.dta, clear
tab `var', missing
replace `var' = "" if `var' == "NA"
tab `var', missing
save "$ecrmen\autres_men_20.dta", replace
}
	 
/* 4-2 - TRANSFORMATION DES VARIABLES CARACTERE EN NUMERIQUE */
/*       ON RENOMME REMPR EN REMP POUR HARMONISATION SUR LE PASSé (les 2 variables semblent identiques) */
clear
use "$ecrmen\autres_men_20.dta"
foreach var of varlist iploy econ chargr ipcred ipelec iplog rempr lfeppc zeat tuu10   {
tab `var', missing
destring `var', replace
tab `var', missing
}
gen ident_men_ue = db030
destring ident_men_ue, replace
destring db030, replace
rename rempr remp
sort db030 annee_SRCV year
order ident_men_ue db030 annee_SRCV year
save "$ecrmen\autres_men_20.dta", replace
count /* 10 899  ident_men_ue */

/* 5 - CREATION DE ZEAT_NEW */
clear
use "$ecrmen\autres_men_20.dta"
rename zeat zeat_new
save "$ecrmen\autres_men_2020_def.dta", replace
